home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Canadian & World Encyclopedia 1998
/
The Canadian & World Encyclopedia 1998 - Disc 2.iso
/
mac
/
prime_CD
/
pb
/
PROFILE.DIR
/
00059_Script_makebiopops
< prev
next >
Wrap
Text File
|
1997-07-29
|
7KB
|
66 lines
on xmakebiopops pm
set rolls = []
if pm = 13 then
addat rolls 1,["13bi1as": rect(46, 63, 238, 328), "glo,01laur": rect(139, 99, 268, 419), "13bi1bs": rect(16, 74, 352, 335), "13bi1cs": rect(121, 55, 329, 320)]
addat rolls 2,["13bi2as": rect(363, 53, 539, 312), "glo,13popul": rect(274, 141, 437, 161), "13bi2bs": rect(328, 54, 568, 312)]
addat rolls 3,["13bi3as": rect(353, 57, 561, 322), "13bi3bs": rect(317, 50, 621, 311), "13bi3cs": rect(353, 54, 561, 319)]
addat rolls 4,["glo,Canadian Bill of Rights": rect(229, 117, 415, 137), "13bi4as": rect(271, 59, 463, 319), "13BI4bv": rect(272, 70, 474, 278), "13bi4cs": rect(295, 59, 583, 314), "glo,Apartheid": rect(232, 153, 445, 173), "glo,British Commonwealth": rect(235, 186, 458, 206), "13bi4ds": rect(287, 58, 591, 314)]
addat rolls 5, ["13bi5as": rect(44, 56, 252, 319), "13bi5bs": rect(29, 72, 333, 327), "13bi5cs": rect(46, 54, 286, 307)]
addat rolls 6, ["glo,European Common Market": rect(127, 72, 317, 92), "glo,economic nationalism": rect(127, 72, 319, 92), "glo,economic nationalism": rect(127, 72, 319, 92), "glo,North American Air Defence Command": rect(124, 72, 343, 92), "glo,North American Air Defence Command": rect(124, 72, 343, 92), "13bi6as": rect(111, 45, 527, 291), "13bi6bs": rect(209, 52, 417, 314), "glo,Avro Arrow": rect(127, 69, 385, 89), "glo,Bomarcs": rect(124, 66, 388, 86), "13bi6cs": rect(198, 54, 422, 259)]
addat rolls 7,["glo,John Kennedy": rect(241, 99, 478, 119), "glo,John Kennedy": rect(241, 99, 478, 119), "13bi7as": rect(307, 58, 595, 303), "glo,Cold War": rect(244, 183, 475, 203), "13bi7bs": rect(340, 45, 580, 310)]
addat rolls 8,["13bi8as": rect(284, 46, 534, 308), "glo,Quiet Revolution": rect(145, 93, 400, 113), "13bi8bs": rect(284, 45, 534, 310), "13bi8cs": rect(284, 45, 534, 310)]
addat rolls 9,["13bi9as": rect(358, 65, 598, 320)]
end if
if pm = 10 then
addat rolls 1,["glo,William Lyon Mackenzie": rect(26, 156, 104, 192), "glo,William Lyon Mackenzie": rect(26, 156, 104, 192), "10BI1as": rect(95, 56, 335, 317), "10BI1bs": rect(95, 55, 335, 319), "10BI1cs": rect(111, 61, 319, 311)]
addat rolls 2,[:]
addat rolls 3,["10BI3as": rect(351, 53, 575, 317)]
addat rolls 4,["glo,Ernest Lapointe": rect(246, 156, 354, 176), "10BI4as": rect(377, 53, 585, 313), "glo,progressive party": rect(249, 241, 341, 277), "glo,progressive party": rect(249, 241, 341, 277), "10BI4bs": rect(347, 54, 587, 313), "10BI4cs": rect(366, 56, 574, 296)]
addat rolls 5,["glo,Customs scandal": rect(204, 373, 309, 393), "10BI5as": rect(86, 55, 294, 315), "10BI5bs": rect(87, 61, 295, 309)]
addat rolls 6,["10BI6as": rect(338, 55, 578, 318), "10BI6bs": rect(56, 76, 296, 301), "glo,conscription": rect(176, 217, 307, 237)]
addat rolls 7,["10BI7as": rect(90, 76, 298, 296), "glo,British Commonwealth Air Training Plan": rect(25, 158, 183, 194), "glo,British Commonwealth Air Training Plan": rect(25, 158, 183, 194), "10BI7bs": rect(74, 52, 314, 307), "10BI7cs": rect(74, 45, 314, 351), "10BI7ds": rect(75, 58, 315, 322)]
addat rolls 8,["glo,family allowance": rect(39, 106, 132, 142), "glo,family allowance": rect(38, 106, 131, 142), "10BI8as": rect(104, 55, 312, 315), "glo,cold war": rect(38, 106, 157, 126)]
addat rolls 9,["10BI9as": rect(70, 55, 278, 320), "10BI9bs": rect(71, 53, 279, 320), "10BI9cs": rect(69, 62, 280, 293)]
end if
if pm = 7 then
addAt rolls, 1, [:]
addAt rolls, 2, [:]
addAt rolls, 3, [:]
addAt rolls, 4, [:]
addAt rolls, 5, [:]
addAt rolls, 6, [:]
addAt rolls, 7, [:]
addAt rolls, 8, [:]
end if
if pm = 1 then
addAt rolls, 1, ["01bi1as": rect(352, 55, 592, 280), "01bi1bs": rect(367, 55, 575, 320)]
addAt rolls, 2, ["glo,Province of Canada": rect(149,59,374,110), "glo,Conservative Party": rect(149,59,374,110), "glo,Upper Canada": rect(149,59,374,110),"glo,Upper Canada": rect(149,59,374,110),"glo,George Etienne Cartier": rect(149,59,32,110), "01bi2as": rect(394, 63, 602, 301)]
addat rolls, 3, ["01bi3as":rect(364, 60, 604, 325), "glo,Charlottetown Conference": rect(156, 192, 403, 194), "01bi3bs": rect(397, 58, 605, 317), "glo,British North America Act":rect(156, 192, 517, 229)]
addat rolls, 4, ["glo,Rupert's Land": rect(156,108,374,110), "01bi4as": rect(316, 60, 604, 310), "glo,Red River Rebellion": rect(156,108,374,110), "glo,Louis Riel": rect(156,108,374,110)]
addat rolls, 5, ["glo,Pacific Scandal": rect(69,69,325,245), "sub_text":rect(142, 62, 372, 362)]
addat rolls, 6, ["01bi6as": rect(49, 87, 49 + 208, 87 + 174), "01bi6bs": rect(61, 43, 61 + 240, 43 + 321), "01bi6cs": rect(62, 59, 302, 322), "01bi6ds": rect(76, 78, 284, 302)]
addat rolls, 7, ["glo,Alexander Mackenzie": rect(320,240,325,245), "glo,Alexander Mackenzie": rect(320,240,325,245), "sub_text": rect(334, 88, 564, 271), "glo,National Policy": rect(320,240,325,245), "01bi7bs": rect(373, 58, 581, 296)]
addat rolls, 8, ["glo,Northwest Rebellion": rect(320,240,325,245), "01bi8as":rect(361, 58, 569, 323)]
addat rolls, 9, ["glo,Sir Wilfred Laurier": rect(120,140,125,145), "glo,Sir Wilfred Laurier": rect(120,140,125,145),"01bi9as": rect(64, 59, 272, 324)]
end if
if pm = 14 then
addat rolls, 1, ["14bi1as":rect(50, 55, 50 + 208, 55 + 295), "14bi1bs": rect(23, 83, 23 + 288, 83 + 254) ,"14bi1cs": rect(48, 55, 48 + 208, 55 + 265)]
addat rolls, 2, ["14bi2as": rect(57, 51, 57 + 208, 51 + 268),"14bi2b": rect(41, 63, 41 + 240, 63 + 268),"glo,External Affairs": rect(31,108,32,110), "glo,external affairs": rect(31,108,32,110), "14bi2cs": rect(41, 93, 281, 301), "glo,Mackenzie King (1874-1950)": rect(31,108,32,110), "14bi2ds": rect(41, 85, 281, 310)]
addat rolls, 3, ["14bi3bs": rect(39, 55, 39 + 208, 55 + 266), "glo,NATO": rect(31,108,32,110),"glo,Suez Crisis": rect(31,108,32,110), "14bi3cv": rect(40, 65, 242, 65 + 201)]
addat rolls, 4, ["glo,John Diefenbaker ": rect(31,108,32,110), "glo,Louis St. Laurent (1882-1973)": rect(31,108,32,110),"14bi4as": rect(53, 71, 53 + 240, 71 + 219), "14bi4bv": rect(57, 94, 57 + 202, 94 + 200)]
addat rolls, 5, ["glo,medicare": rect(41, 131, 176, 151), "glo,Canada Pension Plan": rect(31,108,32,110), "14bi5as": rect(48, 64, 336, 324), "14bi5bv": rect(54, 89, 256, 299), "glo,Royal Commission on Bilingualism and Biculturalism": rect(31,108,32,110), "glo,Royal Commission on Bilingualism and Biculturalism": rect(31,108,32,110), "14bi5cs": rect(45, 92, 285, 317 - 2)]
addat rolls, 6, ["14bi6as": rect(414, 78, 622, 335), "14bi6bs": rect(184, 80, 184 + 208, 80 + 257), "14bi6cs": rect(184, 83, 184 + 288, 83 + 265)]
-- page 7
addat rolls, 7, ["glo,President Kennedy": rect(331,108,332,110), "glo,Lyndon Johnson": rect(331,108,332,110), "glo,Autopact": rect(331,108,332,110), "14bi7as": rect(305, 68, 593, 328), "glo,Vietnam": rect(331,108,332,110), "sub_text":rect(342, 62, 572, 362)]
addat rolls, 8, ["glo,Expo 67": rect(331,108,332,110),"14bi8as": rect(361, 51, 361 + 208, 51 + 266), "14bi8bs": rect(308, 61, 596, 281)]
end if
return rolls
end